home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / vbcc / machines / amiga68k / libsrc / ixemul / support / fltull.s < prev    next >
Encoding:
Text File  |  1998-06-24  |  289 b   |  17 lines
  1.     xdef    __ieeefltull
  2.     xref    ___floatsisf
  3.     xref    ___addsf3
  4. __ieeefltull:
  5.     move.l  4(a7),-(a7)
  6.     jsr     ___floatsisf
  7.     addq.w  #4,a7
  8.     tst.l   4(a7)
  9.     bge.s   ll
  10.     move.l  d0,-(a7)
  11.     move.l  #$4f800000,-(a7)
  12.     jsr     ___addsf3
  13.     addq.w  #8,a7
  14. ll:
  15.     rts
  16.  
  17.